home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir36 / reqask.zip / REQASK.ASM < prev    next >
Assembly Source File  |  1994-04-12  |  2KB  |  144 lines

  1. ; Ask-Befehl ⁿber Requester
  2. ; Returncode WARN bei BestΣtigung
  3. ; V1.0 ⌐1994 by Menne
  4.  
  5. execbase = 4
  6. OpenLib     = -552
  7. CloseLib = -414
  8.  
  9. Write    = -48
  10. Output    = -60
  11.  
  12. AutoRequest = -348
  13.  
  14.  
  15.     move.l    d0,argc        ; Parameter retten
  16.  
  17.     cmp.l    #1,d0
  18.     ble    errmsg        ; keine Parameter ?
  19.  
  20.     move.l    argc,d0
  21.     and.l    #$3F,d0        ; maximal 62 Zeichen    
  22.  
  23.     lea bodytext,a1        ; ▄bergebenen Text 
  24.     sub.l    #2,d0        ; in den Requesterbody
  25. getstring:
  26.     move.b    (a0)+,d1
  27.     move.b    d1,(a1)+
  28.     dbra    d0,getstring
  29.  
  30.  
  31.     move.l    execbase,a6
  32.     lea    intuiname,a1
  33.     moveq    #0,d0
  34.     jsr    OpenLib(a6)
  35.     tst.l    d0
  36.     beq    _nointuition
  37.  
  38.     move.l    d0,a6
  39.  
  40. requ:
  41.     move.l    #0,a0        ; WBSCREEN
  42.     lea    btext,a1    ; Bodytext
  43.     lea    ltext,a2    ; Lefttext
  44.     lea    rtext,a3    ; Righttext
  45.     move.l    #0,d0        ; IDCMP left
  46.     move.l    #0,d1        ; IDCMP right
  47.     move.l    #180,d2
  48.     move.l    #80,d3
  49.     jsr    AutoRequest(a6)
  50.  
  51. auswertung:
  52.     move.l    d0,argc        ; Antwort sichern (1=ja)
  53.  
  54.     move.l    a6,a1
  55.     move.l    execbase,a6
  56.     jsr    CloseLib(a6)
  57.     
  58. _nointuition:
  59.     move.l    argc,d0
  60.     mulu    #5,d0        ; Returncode 
  61.     rts
  62.  
  63.  
  64. errmsg:
  65.     move.l    execbase,a6
  66.     lea    dosname,a1
  67.     moveq    #0,d0
  68.     jsr    OpenLib(a6)
  69.  
  70.     tst.l    d0
  71.     beq    _ndos
  72.     move.l    d0,a6
  73.     jsr    Output(a6)
  74.  
  75.     move.l    d0,d1
  76.     move.l    #errtxt,d2
  77.     move.l    #errtxt2-errtxt,d3
  78.     jsr    Write(a6)
  79.  
  80.     move.l    a6,a1
  81.     move.l    execbase,a6
  82.     jsr    CloseLib(a6)
  83. _ndos:
  84.     move.l    #20,d0
  85.     rts
  86.  
  87.  
  88.  
  89.  
  90. intuiname:
  91.     dc.b "intuition.library",0
  92.     even
  93. intuibase:
  94.     dc.l 0
  95.  
  96. btext:
  97.     dc.b    0,1    ; Farben
  98.     dc.b    0    ; Modus
  99.     even
  100.     dc.w    10,10    ; Text-Position
  101.     dc.l    0    ; topaz
  102.     dc.l    bodytext
  103.     dc.l    0    ; kein weiterer Text
  104. bodytext:
  105.     dc.l 0
  106.     dc.b "ReqAsk V1.00 ⌐1994 by Manfred Klier",0
  107.         ds.b 24
  108.     even
  109.  
  110.  
  111. ltext:
  112.     dc.b    0,1    ; Farben
  113.     dc.b    0    ; Modus
  114.     even
  115.     dc.w    5,3    ; Text-Position
  116.     dc.l    0    ; topaz
  117.     dc.l    lefttext
  118.     dc.l    0    ; kein weiterer Text
  119. lefttext:
  120.     dc.b "Ja",0
  121.     even
  122.  
  123. rtext:
  124.     dc.b    0,1    ; Farben
  125.     dc.b    0    ; Modus
  126.     even
  127.     dc.w    5,3    ; Text-Position
  128.     dc.l    0    ; topaz
  129.     dc.l    righttext
  130.     dc.l    0    ; kein weiterer Text
  131. righttext:
  132.     dc.b "Nein",0
  133.     even
  134.  
  135. argc:
  136.     dc.l    0
  137. dosname:
  138.     dc.b "dos.library",0
  139.     even
  140. errtxt:
  141.     dc.b "Benutze: ReqAsk <Text>",10,0
  142. errtxt2:
  143.  END
  144.